home *** CD-ROM | disk | FTP | other *** search
/ Apple Reference & Presen…rary 5 (Internal Edition) / Apple R&P Lib Internal v5.0.iso / 6-Developer Demos / Developer Demos-Ed. / Macintosh School® CD-ROM Demo / Macintosh SchoolÆ CD-ROM Demo / card_83623.txt < prev    next >
Text File  |  1990-08-14  |  8KB  |  289 lines
  1. -- card: 83623 from stack: in
  2. -- bmap block id: 84953
  3. -- flags: 4000
  4. -- background id: 4754
  5. -- name: School Setup
  6. ----- HyperTalk script -----
  7. on rollingDemo
  8.   answer "School Setup demo will take approx. 5 min." with "Cancel" or "OK"
  9.   if it is "Cancel" then exit rollingDemo
  10.   set the cursor to none
  11.   lock screen
  12.   go to card "Rolling Demo Instructions" of this background
  13.   unlock screen with dissolve fast
  14.   repeat until the mouseClick
  15.   end repeat
  16.   set the cursor to hand
  17.   autoMouse moveMouse,420,60
  18.   click at the loc of bg button id 7
  19.   show card picture
  20.   unlock screen with dissolve
  21.   wait 1 second
  22.   show card field "Introduction"
  23.   wait 2 seconds
  24.   lock screen
  25.   show card button "Attendance"
  26.   show card field "Attendance"
  27.   unlock screen with dissolve
  28.   wait 1 second
  29.   lock screen
  30.   show card button "Scheduling"
  31.   show card field "Scheduling"
  32.   unlock screen with dissolve
  33.   wait 1 second
  34.   lock screen
  35.   show card button "Report Cards"
  36.   show card field "Report Cards"
  37.   unlock screen with dissolve
  38.   wait 1 second
  39.   lock screen
  40.   show card button "Student Details"
  41.   show card field "Student Details"
  42.   unlock screen with dissolve
  43.   wait 3 seconds
  44.   show card field "Introduction 2"
  45.   wait until the mouseClick
  46.   lock screen
  47.   hide card picture
  48.   hide card field "Introduction"
  49.   hide card button "Attendance"
  50.   hide card field "Attendance"
  51.   hide card button "Scheduling"
  52.   hide card field "Scheduling"
  53.   hide card button "Report Cards"
  54.   hide card field "Report Cards"
  55.   hide card button "Student Details"
  56.   hide card field "Student Details"
  57.   hide card field "Introduction 2"
  58.   unlock screen with dissolve
  59.   set the cursor to hand
  60.   autoMouse menuMouse,4,1 -- Passwords‚Ķ
  61.   if the result is "Item not found" then -- test for XCMD bug
  62.     send "doMenu Passwords‚Ķ" to background "School Setup"
  63.   end if
  64.   showInfo "Passwords",true
  65.   wait 30
  66.   set the cursor to hand
  67.   autoMouse moveMouse,60,130
  68.   tabKey
  69.   type "CHANCERY"
  70.   select empty
  71.   wait 30
  72.   autoMouse moveMouse,436,126
  73.   click at the loc of card button "AT Edit"
  74.   wait 30
  75.   autoMouse moveMouse,436,145
  76.   click at the loc of card button "CD Edit"
  77.   wait 30
  78.   autoMouse moveMouse,398,183
  79.   click at the loc of card button "RC View"
  80.   wait 30
  81.   autoMouse moveMouse,436,202
  82.   click at the loc of card button "RM Edit"
  83.   wait 30
  84.   autoMouse moveMouse,436,221
  85.   click at the loc of card button "SC Edit"
  86.   wait 2 seconds
  87.   autoMouse moveMouse,122,309
  88.   click at the loc of card button "OK"
  89.   wait 1 second
  90.   autoMouse menuMouse,4,9 -- Daily Attendance Codes‚Ķ
  91.   wait 3 seconds
  92.   showInfo "Daily Attendance Codes",true
  93.   wait 30
  94.   set the cursor to hand
  95.   autoMouse moveMouse,35,290
  96.   tabKey
  97.   type "Doctors Excuse"
  98.   wait 1 second
  99.   tabkey
  100.   type "D"
  101.   wait 1 second
  102.   tabkey
  103.   type "1.000"
  104.   wait 1 second
  105.   tabkey
  106.   type "0.000"
  107.   wait 1 second
  108.   tabkey
  109.   type "1.000"
  110.   select empty
  111.   wait 1 second
  112.   autoMouse moveMouse,168,318
  113.   click at the loc of card button "OK"
  114.   wait 1 second
  115.   autoMouse menuMouse,4,10 -- Period Attendance Codes‚Ķ
  116.   showInfo "Period Attendance Codes",true
  117.   wait 30
  118.   set the cursor to hand
  119.   autoMouse moveMouse,35,227
  120.   tabKey
  121.   type "Doctors Excuse"
  122.   wait 1 second
  123.   tabkey
  124.   type "D"
  125.   wait 1 second
  126.   tabkey
  127.   type "1.000"
  128.   wait 1 second
  129.   tabkey
  130.   type "0.000"
  131.   wait 1 second
  132.   tabkey
  133.   type "1.000"
  134.   select empty
  135.   wait 2 seconds
  136.   autoMouse moveMouse,168,318
  137.   click at the loc of card button "OK"
  138.   wait 1 second
  139.   autoMouse menuMouse,5,1 -- Timetable Setup‚Ķ
  140.   if the result is "Item not found" then -- test for XCMD bug
  141.     send "doMenu Timetable Setup‚Ķ" to background "School Setup"
  142.   end if
  143.   showInfo "Timetable Setup 1",true
  144.   showInfo "Timetable Setup 2",true
  145.   wait 2 seconds
  146.   set the cursor to hand
  147.   autoMouse moveMouse,52,80
  148.   click at the loc of card button "Relative Days"
  149.   showInfo "Timetable Setup 3",true
  150.   wait 2 seconds
  151.   set the cursor to hand
  152.   autoMouse moveMouse,170,313
  153.   click at the loc of card button "OK"
  154.   wait 1 second
  155.   autoMouse menuMouse,5,10 -- Classroom Setup‚Ķ
  156.   showInfo "Classroom Setup",true
  157.   wait 1 second
  158.   set the cursor to hand
  159.   tabKey
  160.   type "222"
  161.   wait 30
  162.   tabKey
  163.   type "4126"
  164.   wait 30
  165.   tabKey
  166.   type "30"
  167.   wait 30
  168.   autoMouse moveMouse,74,220
  169.   select line 1 of card field "Available Types"
  170.   put "Classroom" into card field "Room Type"
  171.   wait 30
  172.   autoMouse moveMouse,287,99
  173.   click at the loc of card button id 9
  174.   wait 2 seconds
  175.   autoMouse moveMouse,160,307
  176.   click at the loc of card button "OK"
  177.   wait 1 second
  178.   autoMouse menuMouse,6,4 -- Lunch Status‚Ķ
  179.   showInfo "Lunch Status",true
  180.   wait 1 second
  181.   set the cursor to hand
  182.   autoMouse moveMouse,152,209
  183.   tabKey
  184.   type "Low Cholesterol"
  185.   wait 1 second
  186.   autoMouse moveMouse,254,292
  187.   click at the loc of card button "Change Title‚Ķ"
  188.   wait 1 second
  189.   type "Bus Status"
  190.   wait 2 seconds
  191.   autoMouse moveMouse,170,208
  192.   click at the loc of card button "OK"
  193.   wait 2 seconds
  194.   autoMouse moveMouse,160,292
  195.   click at the loc of card button "OK"
  196.   wait 1 second
  197.   autoMouse menuMouse,6,5 -- Infraction Codes‚Ķ
  198.   wait 1 second
  199.   autoMouse moveMouse,152,209
  200.   tabKey
  201.   type "Selling of illegal drugs"
  202.   select empty
  203.   showInfo "Infractions",true
  204.   wait 2 seconds
  205.   set the cursor to hand
  206.   autoMouse moveMouse,180,292
  207.   click at the loc of card button "OK"
  208.   wait 1 second
  209.   autoMouse menuMouse,6,6 -- Student Numbers‚Ķ
  210.   wait 1 second
  211.   type "1000"
  212.   select empty
  213.   showInfo "Student Numbers",true
  214.   wait 2 seconds
  215.   set the cursor to hand
  216.   autoMouse moveMouse,155,276
  217.   click at the loc of card button "OK"
  218.   wait 1 second
  219.   autoMouse menuMouse,6,9 -- User Definable Fields‚Ķ
  220.   showInfo "User Definable Fields",true
  221.   wait 1 second
  222.   set the cursor to hand
  223.   select line 1 of card field "User Fields 1"
  224.   type "S.A.T. scores"
  225.   wait 1 second
  226.   select line 2 of card field "User Fields 1"
  227.   type "IQ score"
  228.   wait 1 second
  229.   autoMouse moveMouse,224,166
  230.   click at the loc of card button 8
  231.   wait 1 second
  232.   select line 3 of card field "User Fields 1"
  233.   type "Combination Number"
  234.   wait 1 second
  235.   select line 4 of card field "User Fields 1"
  236.   type "Licence Plate"
  237.   wait 1 second
  238.   select line 5 of card field "User Fields 1"
  239.   type "Volunteer Work"
  240.   wait 2 seconds
  241.   autoMouse moveMouse,132,300
  242.   click at the loc of card button "OK"
  243.   autoMouse menuMouse,1,1 -- About
  244.   if the result is "Item not found" then -- test for XCMD bug
  245.     send "doMenu About" to background "School Setup"
  246.   end if
  247. end rollingDemo
  248.  
  249. on showInfo fieldName,cardPict
  250.   lock screen
  251.   set the cursor to none
  252.   restoreMenuBar false
  253.   grayPicture cardPict
  254.   installMenuBar 1160,1161,1162,1163,1164,1165
  255.   show card field fieldName
  256.   unlock screen with dissolve
  257.   put the secs into temp
  258.   repeat until the mouseClick
  259.     if (the secs - temp) > 30 then show card field "Continue"
  260.   end repeat
  261.   lock screen
  262.   hide card field fieldName
  263.   hide card field "Continue"
  264.   pop card
  265.   unlock screen with dissolve
  266.   if the optionKey is down then exit to HyperCard
  267. end showInfo
  268.  
  269.  
  270. -- part contents for background part 5
  271. ----- text -----
  272. School Setup
  273.  
  274. -- part contents for background part 6
  275. ----- text -----
  276. School Setup allows you to enter variables that are particular to your school, allowing you to customize the software to meet your school‚Äôs individual needs.  The user has the ability to define his/her own:
  277.  
  278.    ‚Ä¢  system passwords
  279.    ‚Ä¢  timetable structure
  280.    ‚Ä¢  scheduler terms
  281.    ‚Ä¢  reporting terms
  282.    ‚Ä¢  discipline codes
  283.    ‚Ä¢  daily attendance codes
  284.    ‚Ä¢  period/class attendance codes
  285.    ‚Ä¢  25 open fields for the user to define
  286.    ‚Ä¢  classroom setup ( a blueprint of your school)
  287.    ‚Ä¢  and many more!
  288.  
  289. The data entered in School Setup will be used in every other Mac School program.  In fact,  it becomes part of the framework of subsequent modules enabling you to simply make selections rather than having to reenter the data.